home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
faq
/
trekgui.lha
/
TG_Screen.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-11-03
|
743b
|
29 lines
/*SET SCREENMODE FOR TREK-THE.GUIDE v1.0 */
if ~show('L','rexxreqtools.library') then
call addlib("rexxreqtools.library", 0, -30, 0)
NL = '0a'x
sm:
screenmode = rtscreenmoderequest( "Pick Screen Resolution", ,,
"rtsc_flags = screqf_sizegads", screen)
if screenmode ~= "" then do
open(dfile, 'envarc:Trekguide.prefs', 'w')
writeln(dfile, screen.width'|'screen.height)
close(dfile)
/*say 'the screenwidth is' screen.width
say 'the screenheigh is' screen.height
*/
end
if screenmode = "" then do
call rtezrequest( "You MUST pick a screen mode before running" || NL || "Trek-the.Guide for the first time", " OK ", , )
/* call sm()*/
end
call rtfreefilebuffer()
address command 'copy envarc:trekguide.prefs env:'